home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 June / PCWorld_2002-06_cd.bin / Software / TemaCD / easypad / ep35.exe / {app} / template / asp.tem next >
Encoding:
Text File  |  2002-04-19  |  1021 b   |  53 lines
  1. <%
  2. Set Conn = Server.CreateObject("ADODB.Connection")
  3. Conn.Open "dopl≥te_nßzev_spojenφ"
  4. SQL = "SELECT * FROM dopl≥te_nßzev_tabulky order by dopl≥te_nßzev_t°φdφcφho_pole"
  5. Set RS = Conn.Execute(SQL)
  6. %>
  7.  
  8. <HTML>
  9. <HEAD>
  10. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1250">
  11. <META name="GENERATOR" content="EasyPad from http://easypad.fwd.cz">
  12. <TITLE>!!! doplnit !!!</TITLE>
  13. </HEAD>
  14.  
  15.  
  16. <BODY bgcolor="White" text="Black">
  17.  
  18. <TABLE border="0">
  19.   <TR><!-- hlaviΦka tabulky vytvo°enß z nßzv∙ polφ -->
  20.     <% 
  21.       For i = 0 to RS.Fields.Count - 1
  22.         Response.Write "<TD><B>" & RS(i).Name & "</B></TD>"
  23.       Next
  24.     %>
  25.   </TR>
  26.  
  27. <% Do while not (RS is nothing) %>
  28. <% Do While Not RS.EOF %>
  29.  
  30.   <TR>
  31.     <% 
  32.       For i = 0 to RS.Fields.Count - 1
  33.         Response.Write "<TD>" & RS(i) & "</TD>"
  34.       Next
  35.     %>
  36.   </TR>
  37. <%
  38. RS.MoveNext
  39. Loop
  40. %>
  41.  
  42. <%
  43. set RS = RS.NextRecordSet
  44. Loop
  45. Conn.Close
  46. set rs = nothing
  47. set Conn = nothing
  48. %>
  49. </TABLE>
  50.  
  51. </BODY>
  52. </HTML>
  53.